/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / apel / emu-18.elc.z / emu-18.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 36 3a 30 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:00 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 61 70 65 6c |s-20.3/l|isp/apel|
|000000a0| 2f 65 6d 75 2d 31 38 2e | 65 6c 0a 3b 3b 3b 20 65 |/emu-18.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 65 6d 75 2d 31 38 2e 65 |error "`|emu-18.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 23 40 32 35 35 20 53 | 65 74 20 74 68 65 20 76 |.#@255 S|et the v|
|00000260| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 65 6e 76 69 |alue of |the envi|
|00000270| 72 6f 6e 6d 65 6e 74 20 | 76 61 72 69 61 62 6c 65 |ronment |variable|
|00000280| 20 6e 61 6d 65 64 20 56 | 41 52 49 41 42 4c 45 20 | named V|ARIABLE |
|00000290| 74 6f 20 56 41 4c 55 45 | 2e 0a 56 41 52 49 41 42 |to VALUE|..VARIAB|
|000002a0| 4c 45 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 73 |LE shoul|d be a s|
|000002b0| 74 72 69 6e 67 2e 20 20 | 56 41 4c 55 45 20 69 73 |tring.  |VALUE is|
|000002c0| 20 6f 70 74 69 6f 6e 61 | 6c 3b 20 69 66 20 6e 6f | optiona|l; if no|
|000002d0| 74 20 70 72 6f 76 69 64 | 65 64 20 6f 72 20 69 73 |t provid|ed or is|
|000002e0| 0a 60 6e 69 6c 27 2c 20 | 74 68 65 20 65 6e 76 69 |.`nil', |the envi|
|000002f0| 72 6f 6e 6d 65 6e 74 20 | 76 61 72 69 61 62 6c 65 |ronment |variable|
|00000300| 20 56 41 52 49 41 42 4c | 45 20 77 69 6c 6c 20 62 | VARIABL|E will b|
|00000310| 65 20 72 65 6d 6f 76 65 | 64 2e 20 20 0a 54 68 69 |e remove|d.  .Thi|
|00000320| 73 20 66 75 6e 63 74 69 | 6f 6e 20 77 6f 72 6b 73 |s functi|on works|
|00000330| 20 62 79 20 6d 6f 64 69 | 66 79 69 6e 67 20 60 70 | by modi|fying `p|
|00000340| 72 6f 63 65 73 73 2d 65 | 6e 76 69 72 6f 6e 6d 65 |rocess-e|nvironme|
|00000350| 6e 74 27 2e 1f 0a 28 61 | 75 74 6f 6c 6f 61 64 20 |nt'...(a|utoload |
|00000360| 27 73 65 74 65 6e 76 20 | 22 65 6e 76 22 20 27 28 |'setenv |"env" '(|
|00000370| 23 24 20 2e 20 35 39 39 | 29 20 74 29 0a 28 62 79 |#$ . 599|) t).(by|
|00000380| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 82 5c 6e |te-code |"..!..\n|
|00000390| 11 c1 0b 42 13 c0 c4 21 | ac 82 c5 14 c4 0b 42 13 |...B...!|......B.|
|000003a0| c5 87 22 20 5b 62 6f 75 | 6e 64 70 20 64 61 74 61 |.." [bou|ndp data|
|000003b0| 2d 64 69 72 65 63 74 6f | 72 79 20 65 78 65 63 2d |-directo|ry exec-|
|000003c0| 64 69 72 65 63 74 6f 72 | 79 20 63 75 72 72 65 6e |director|y curren|
|000003d0| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 62 75 66 66 |t-load-l|ist buff|
|000003e0| 65 72 2d 75 6e 64 6f 2d | 6c 69 73 74 20 6e 69 6c |er-undo-|list nil|
|000003f0| 5d 20 32 29 0a 23 40 34 | 37 37 20 41 64 64 20 74 |] 2).#@4|77 Add t|
|00000400| 6f 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 48 |o the va|lue of H|
|00000410| 4f 4f 4b 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |OOK the |function|
|00000420| 20 46 55 4e 43 54 49 4f | 4e 2e 0a 46 55 4e 43 54 | FUNCTIO|N..FUNCT|
|00000430| 49 4f 4e 20 69 73 20 6e | 6f 74 20 61 64 64 65 64 |ION is n|ot added|
|00000440| 20 69 66 20 61 6c 72 65 | 61 64 79 20 70 72 65 73 | if alre|ady pres|
|00000450| 65 6e 74 2e 0a 46 55 4e | 43 54 49 4f 4e 20 69 73 |ent..FUN|CTION is|
|00000460| 20 61 64 64 65 64 20 28 | 69 66 20 6e 65 63 65 73 | added (|if neces|
|00000470| 73 61 72 79 29 20 61 74 | 20 74 68 65 20 62 65 67 |sary) at| the beg|
|00000480| 69 6e 6e 69 6e 67 20 6f | 66 20 74 68 65 20 68 6f |inning o|f the ho|
|00000490| 6f 6b 20 6c 69 73 74 0a | 75 6e 6c 65 73 73 20 74 |ok list.|unless t|
|000004a0| 68 65 20 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 75 |he optio|nal argu|
|000004b0| 6d 65 6e 74 20 41 50 50 | 45 4e 44 20 69 73 20 6e |ment APP|END is n|
|000004c0| 6f 6e 2d 6e 69 6c 2c 20 | 69 6e 20 77 68 69 63 68 |on-nil, |in which|
|000004d0| 20 63 61 73 65 0a 46 55 | 4e 43 54 49 4f 4e 20 69 | case.FU|NCTION i|
|000004e0| 73 20 61 64 64 65 64 20 | 61 74 20 74 68 65 20 65 |s added |at the e|
|000004f0| 6e 64 2e 0a 20 0a 48 4f | 4f 4b 20 73 68 6f 75 6c |nd.. .HO|OK shoul|
|00000500| 64 20 62 65 20 61 20 73 | 79 6d 62 6f 6c 2c 20 61 |d be a s|ymbol, a|
|00000510| 6e 64 20 46 55 4e 43 54 | 49 4f 4e 20 6d 61 79 20 |nd FUNCT|ION may |
|00000520| 62 65 20 61 6e 79 20 76 | 61 6c 69 64 20 66 75 6e |be any v|alid fun|
|00000530| 63 74 69 6f 6e 2e 20 20 | 49 66 0a 48 4f 4f 4b 20 |ction.  |If.HOOK |
|00000540| 69 73 20 76 6f 69 64 2c | 20 69 74 20 69 73 20 66 |is void,| it is f|
|00000550| 69 72 73 74 20 73 65 74 | 20 74 6f 20 6e 69 6c 2e |irst set| to nil.|
|00000560| 20 20 49 66 20 48 4f 4f | 4b 27 73 20 76 61 6c 75 |  If HOO|K's valu|
|00000570| 65 20 69 73 20 61 20 73 | 69 6e 67 6c 65 0a 66 75 |e is a s|ingle.fu|
|00000580| 6e 63 74 69 6f 6e 2c 20 | 69 74 20 69 73 20 63 68 |nction, |it is ch|
|00000590| 61 6e 67 65 64 20 74 6f | 20 61 20 6c 69 73 74 20 |anged to| a list |
|000005a0| 6f 66 20 66 75 6e 63 74 | 69 6f 6e 73 2e 0a 5b 65 |of funct|ions..[e|
|000005b0| 6d 75 2d 31 38 2e 65 6c | 3b 20 45 4d 41 43 53 20 |mu-18.el|; EMACS |
|000005c0| 31 39 20 65 6d 75 6c 61 | 74 69 6e 67 20 66 75 6e |19 emula|ting fun|
|000005d0| 63 74 69 6f 6e 5d 1f 0a | 28 64 65 66 61 6c 69 61 |ction]..|(defalia|
|000005e0| 73 20 27 61 64 64 2d 68 | 6f 6f 6b 20 23 5b 28 68 |s 'add-h|ook #[(h|
|000005f0| 6f 6f 6b 20 66 75 6e 63 | 74 69 6f 6e 20 26 6f 70 |ook func|tion &op|
|00000600| 74 69 6f 6e 61 6c 20 61 | 70 70 65 6e 64 29 20 22 |tional a|ppend) "|
|00000610| c0 09 21 ac 84 09 c2 4c | 88 09 4a 89 1b 3c ab 86 |..!....L|..J..<..|
|00000620| 0b 40 c4 61 ab 85 09 0b | 43 4c 88 29 0d 3a ab 8f |.@.a....|CL.).:..|
|00000630| c6 0d 41 09 4a 5c 22 1e | 07 0d 0e 07 29 6b aa 84 |..A.J\".|....)k..|
|00000640| 0d 09 4a 73 ae 91 09 0e | 08 ab 87 09 4a 0d 43 a4 |..Js....|....J.C.|
|00000650| aa 84 0d 09 4a 42 4c 87 | 22 20 5b 62 6f 75 6e 64 |....JBL.|" [bound|
|00000660| 70 20 68 6f 6f 6b 20 6e | 69 6c 20 6f 6c 64 20 6c |p hook n|il old l|
|00000670| 61 6d 62 64 61 20 66 75 | 6e 63 74 69 6f 6e 20 61 |ambda fu|nction a|
|00000680| 73 73 6f 63 20 74 61 69 | 6c 20 61 70 70 65 6e 64 |ssoc tai|l append|
|00000690| 5d 20 34 20 28 23 24 20 | 2e 20 31 30 31 39 29 5d |] 4 (#$ |. 1019)]|
|000006a0| 29 0a 23 40 33 30 35 20 | 52 65 6d 6f 76 65 20 66 |).#@305 |Remove f|
|000006b0| 72 6f 6d 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |rom the |value of|
|000006c0| 20 48 4f 4f 4b 20 74 68 | 65 20 66 75 6e 63 74 69 | HOOK th|e functi|
|000006d0| 6f 6e 20 46 55 4e 43 54 | 49 4f 4e 2e 0a 48 4f 4f |on FUNCT|ION..HOO|
|000006e0| 4b 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 73 79 |K should| be a sy|
|000006f0| 6d 62 6f 6c 2c 20 61 6e | 64 20 46 55 4e 43 54 49 |mbol, an|d FUNCTI|
|00000700| 4f 4e 20 6d 61 79 20 62 | 65 20 61 6e 79 20 76 61 |ON may b|e any va|
|00000710| 6c 69 64 20 66 75 6e 63 | 74 69 6f 6e 2e 20 20 49 |lid func|tion.  I|
|00000720| 66 0a 46 55 4e 43 54 49 | 4f 4e 20 69 73 6e 27 74 |f.FUNCTI|ON isn't|
|00000730| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 48 4f | the val|ue of HO|
|00000740| 4f 4b 2c 20 6f 72 2c 20 | 69 66 20 46 55 4e 43 54 |OK, or, |if FUNCT|
|00000750| 49 4f 4e 20 64 6f 65 73 | 6e 27 74 20 61 70 70 65 |ION does|n't appe|
|00000760| 61 72 20 69 6e 20 74 68 | 65 0a 6c 69 73 74 20 6f |ar in th|e.list o|
|00000770| 66 20 68 6f 6f 6b 73 20 | 74 6f 20 72 75 6e 20 69 |f hooks |to run i|
|00000780| 6e 20 48 4f 4f 4b 2c 20 | 74 68 65 6e 20 6e 6f 74 |n HOOK, |then not|
|00000790| 68 69 6e 67 20 69 73 20 | 64 6f 6e 65 2e 20 20 53 |hing is |done.  S|
|000007a0| 65 65 20 60 61 64 64 2d | 68 6f 6f 6b 27 2e 0a 5b |ee `add-|hook'..[|
|000007b0| 65 6d 75 2d 31 38 2e 65 | 6c 3b 20 45 4d 41 43 53 |emu-18.e|l; EMACS|
|000007c0| 20 31 39 20 65 6d 75 6c | 61 74 69 6e 67 20 66 75 | 19 emul|ating fu|
|000007d0| 6e 63 74 69 6f 6e 5d 1f | 0a 28 64 65 66 61 6c 69 |nction].|.(defali|
|000007e0| 61 73 20 27 72 65 6d 6f | 76 65 2d 68 6f 6f 6b 20 |as 'remo|ve-hook |
|000007f0| 23 5b 28 68 6f 6f 6b 20 | 66 75 6e 63 74 69 6f 6e |#[(hook |function|
|00000800| 29 20 22 c0 09 21 3f ae | 87 09 4a 3f ae 82 5c 6e |) "..!?.|..J?..\n|
|00000810| 3f 3f ad 99 09 4a 89 1b | 3a ab 87 c4 5c 6e 0b 5c |??...J..|:...\n.\|
|00000820| 22 13 aa 87 0b 5c 6e 6b | ab 82 c5 13 09 0b 4c 29 |"....\nk|......L)|
|00000830| 87 22 20 5b 62 6f 75 6e | 64 70 20 68 6f 6f 6b 20 |." [boun|dp hook |
|00000840| 66 75 6e 63 74 69 6f 6e | 20 68 6f 6f 6b 2d 76 61 |function| hook-va|
|00000850| 6c 75 65 20 64 65 6c 65 | 74 65 20 6e 69 6c 5d 20 |lue dele|te nil] |
|00000860| 34 20 28 23 24 20 2e 20 | 31 37 30 34 29 5d 29 0a |4 (#$ . |1704)]).|
|00000870| 23 40 31 37 33 20 52 65 | 74 75 72 6e 20 6e 6f 6e |#@173 Re|turn non|
|00000880| 2d 6e 69 6c 20 69 66 20 | 45 4c 54 20 69 73 20 61 |-nil if |ELT is a|
|00000890| 6e 20 65 6c 65 6d 65 6e | 74 20 6f 66 20 4c 49 53 |n elemen|t of LIS|
|000008a0| 54 2e 20 20 43 6f 6d 70 | 61 72 69 73 6f 6e 20 64 |T.  Comp|arison d|
|000008b0| 6f 6e 65 20 77 69 74 68 | 20 45 51 55 41 4c 2e 0a |one with| EQUAL..|
|000008c0| 54 68 65 20 76 61 6c 75 | 65 20 69 73 20 61 63 74 |The valu|e is act|
|000008d0| 75 61 6c 6c 79 20 74 68 | 65 20 74 61 69 6c 20 6f |ually th|e tail o|
|000008e0| 66 20 4c 49 53 54 20 77 | 68 6f 73 65 20 63 61 72 |f LIST w|hose car|
|000008f0| 20 69 73 20 45 4c 54 2e | 0a 5b 65 6d 75 2d 31 38 | is ELT.|.[emu-18|
|00000900| 2e 65 6c 3b 20 45 4d 41 | 43 53 20 31 39 20 65 6d |.el; EMA|CS 19 em|
|00000910| 75 6c 61 74 69 6e 67 20 | 66 75 6e 63 74 69 6f 6e |ulating |function|
|00000920| 5d 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 65 |]..(defa|lias 'me|
|00000930| 6d 62 65 72 20 23 5b 28 | 65 6c 74 20 6c 69 73 74 |mber #[(|elt list|
|00000940| 29 20 22 08 ab 8c 09 08 | 40 6b ac 86 08 41 89 10 |) ".....|@k...A..|
|00000950| ac 74 08 87 22 20 5b 6c | 69 73 74 20 65 6c 74 5d |.t.." [l|ist elt]|
|00000960| 20 33 20 28 23 24 20 2e | 20 32 31 36 36 29 5d 29 | 3 (#$ .| 2166)])|
|00000970| 0a 23 40 33 37 34 20 44 | 65 6c 65 74 65 20 62 79 |.#@374 D|elete by|
|00000980| 20 73 69 64 65 20 65 66 | 66 65 63 74 20 61 6e 79 | side ef|fect any|
|00000990| 20 6f 63 63 75 72 72 65 | 6e 63 65 73 20 6f 66 20 | occurre|nces of |
|000009a0| 45 4c 54 20 61 73 20 61 | 20 6d 65 6d 62 65 72 20 |ELT as a| member |
|000009b0| 6f 66 20 4c 49 53 54 2e | 0a 54 68 65 20 6d 6f 64 |of LIST.|.The mod|
|000009c0| 69 66 69 65 64 20 4c 49 | 53 54 20 69 73 20 72 65 |ified LI|ST is re|
|000009d0| 74 75 72 6e 65 64 2e 20 | 20 43 6f 6d 70 61 72 69 |turned. | Compari|
|000009e0| 73 6f 6e 20 69 73 20 64 | 6f 6e 65 20 77 69 74 68 |son is d|one with|
|000009f0| 20 60 65 71 75 61 6c 27 | 2e 0a 49 66 20 74 68 65 | `equal'|..If the|
|00000a00| 20 66 69 72 73 74 20 6d | 65 6d 62 65 72 20 6f 66 | first m|ember of|
|00000a10| 20 4c 49 53 54 20 69 73 | 20 45 4c 54 2c 20 64 65 | LIST is| ELT, de|
|00000a20| 6c 65 74 69 6e 67 20 69 | 74 20 69 73 20 6e 6f 74 |leting i|t is not|
|00000a30| 20 61 20 73 69 64 65 20 | 65 66 66 65 63 74 3b 0a | a side |effect;.|
|00000a40| 69 74 20 69 73 20 73 69 | 6d 70 6c 79 20 75 73 69 |it is si|mply usi|
|00000a50| 6e 67 20 61 20 64 69 66 | 66 65 72 65 6e 74 20 6c |ng a dif|ferent l|
|00000a60| 69 73 74 2e 0a 54 68 65 | 72 65 66 6f 72 65 2c 20 |ist..The|refore, |
|00000a70| 77 72 69 74 65 20 60 28 | 73 65 74 71 20 66 6f 6f |write `(|setq foo|
|00000a80| 20 28 64 65 6c 65 74 65 | 20 65 6c 65 6d 65 6e 74 | (delete| element|
|00000a90| 20 66 6f 6f 29 29 27 0a | 74 6f 20 62 65 20 73 75 | foo))'.|to be su|
|00000aa0| 72 65 20 6f 66 20 63 68 | 61 6e 67 69 6e 67 20 74 |re of ch|anging t|
|00000ab0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 60 66 6f 6f |he value| of `foo|
|00000ac0| 27 2e 0a 5b 65 6d 75 2d | 31 38 2e 65 6c 3b 20 45 |'..[emu-|18.el; E|
|00000ad0| 4d 41 43 53 20 31 39 20 | 65 6d 75 6c 61 74 69 6e |MACS 19 |emulatin|
|00000ae0| 67 20 66 75 6e 63 74 69 | 6f 6e 5d 1f 0a 28 64 65 |g functi|on]..(de|
|00000af0| 66 61 6c 69 61 73 20 27 | 64 65 6c 65 74 65 20 23 |falias '|delete #|
|00000b00| 5b 28 65 6c 74 20 6c 69 | 73 74 29 20 22 08 09 40 |[(elt li|st) "..@|
|00000b10| 6b ab 83 09 41 87 09 89 | 41 1a 1b 5c 6e ab 8e 08 |k...A...|A..\n...|
|00000b20| 5c 6e 40 6b ac 88 5c 6e | 13 5c 6e 41 89 12 ac 72 |\n@k..\n|.\nA...r|
|00000b30| 0b 5c 6e 41 a1 88 09 2a | 87 22 20 5b 65 6c 74 20 |.\nA...*|." [elt |
|00000b40| 6c 69 73 74 20 72 72 65 | 73 74 20 72 65 73 74 5d |list rre|st rest]|
|00000b50| 20 33 20 28 23 24 20 2e | 20 32 34 32 33 29 5d 29 | 3 (#$ .| 2423)])|
|00000b60| 0a 23 40 31 36 35 20 53 | 65 74 20 53 59 4d 42 4f |.#@165 S|et SYMBO|
|00000b70| 4c 27 73 20 66 75 6e 63 | 74 69 6f 6e 20 64 65 66 |L's func|tion def|
|00000b80| 69 6e 69 74 69 6f 6e 20 | 74 6f 20 4e 45 57 56 41 |inition |to NEWVA|
|00000b90| 4c 2c 20 61 6e 64 20 72 | 65 74 75 72 6e 20 4e 45 |L, and r|eturn NE|
|00000ba0| 57 56 41 4c 2e 0a 41 73 | 73 6f 63 69 61 74 65 73 |WVAL..As|sociates|
|00000bb0| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 77 69 | the fun|ction wi|
|00000bc0| 74 68 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6c |th the c|urrent l|
|00000bd0| 6f 61 64 20 66 69 6c 65 | 2c 20 69 66 20 61 6e 79 |oad file|, if any|
|00000be0| 2e 0a 5b 65 6d 75 2d 31 | 38 2e 65 6c 3b 20 45 4d |..[emu-1|8.el; EM|
|00000bf0| 41 43 53 20 31 39 20 65 | 6d 75 6c 61 74 69 6e 67 |ACS 19 e|mulating|
|00000c00| 20 66 75 6e 63 74 69 6f | 6e 5d 1f 0a 28 64 65 66 | functio|n]..(def|
|00000c10| 61 6c 69 61 73 20 27 64 | 65 66 61 6c 69 61 73 20 |alias 'd|efalias |
|00000c20| 23 5b 28 73 79 6d 20 6e | 65 77 64 65 66 29 20 22 |#[(sym n|ewdef) "|
|00000c30| 08 09 4d 87 22 20 5b 73 | 79 6d 20 6e 65 77 64 65 |..M." [s|ym newde|
|00000c40| 66 5d 20 32 20 28 23 24 | 20 2e 20 32 39 31 39 29 |f] 2 (#$| . 2919)|
|00000c50| 5d 29 0a 23 40 39 30 20 | 54 20 69 66 20 4f 42 4a |]).#@90 |T if OBJ|
|00000c60| 45 43 54 20 69 73 20 61 | 20 62 79 74 65 2d 63 6f |ECT is a| byte-co|
|00000c70| 6d 70 69 6c 65 64 20 66 | 75 6e 63 74 69 6f 6e 20 |mpiled f|unction |
|00000c80| 6f 62 6a 65 63 74 2e 0a | 5b 65 6d 75 2d 31 38 2e |object..|[emu-18.|
|00000c90| 65 6c 3b 20 45 4d 41 43 | 53 20 31 39 20 65 6d 75 |el; EMAC|S 19 emu|
|00000ca0| 6c 61 74 69 6e 67 20 66 | 75 6e 63 74 69 6f 6e 5d |lating f|unction]|
|00000cb0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 79 74 |..(defal|ias 'byt|
|00000cc0| 65 2d 63 6f 64 65 2d 66 | 75 6e 63 74 69 6f 6e 2d |e-code-f|unction-|
|00000cd0| 70 20 23 5b 28 65 78 70 | 29 20 22 08 3a ad 92 08 |p #[(exp|) ".:...|
|00000ce0| 41 41 19 c2 1b 09 40 3b | ab 83 09 41 11 c4 c5 8d |AA....@;|...A....|
|00000cf0| 2a 87 22 20 5b 65 78 70 | 20 72 65 73 74 20 6e 69 |*." [exp| rest ni|
|00000d00| 6c 20 65 6c 74 20 74 61 | 67 20 28 62 79 74 65 2d |l elt ta|g (byte-|
|00000d10| 63 6f 64 65 20 22 08 ad | 99 08 40 89 11 3a ab 8b |code "..|..@..:..|
|00000d20| 09 40 c2 61 ab 85 c3 c4 | c5 5c 22 88 08 41 89 10 |.@.a....|.\"..A..|
|00000d30| ac 68 c6 87 22 20 5b 72 | 65 73 74 20 65 6c 74 20 |.h.." [r|est elt |
|00000d40| 62 79 74 65 2d 63 6f 64 | 65 20 74 68 72 6f 77 20 |byte-cod|e throw |
|00000d50| 74 61 67 20 74 20 6e 69 | 6c 5d 20 34 29 5d 20 32 |tag t ni|l] 4)] 2|
|00000d60| 20 28 23 24 20 2e 20 33 | 31 36 30 29 5d 29 0a 23 | (#$ . 3|160)]).#|
|00000d70| 40 39 36 20 43 72 65 61 | 74 65 20 61 20 64 69 72 |@96 Crea|te a dir|
|00000d80| 65 63 74 6f 72 79 2e 20 | 4f 6e 65 20 61 72 67 75 |ectory. |One argu|
|00000d90| 6d 65 6e 74 2c 20 61 20 | 66 69 6c 65 20 6e 61 6d |ment, a |file nam|
|00000da0| 65 20 73 74 72 69 6e 67 | 2e 0a 5b 65 6d 75 2d 31 |e string|..[emu-1|
|00000db0| 38 2e 65 6c 3b 20 45 4d | 41 43 53 20 31 39 20 65 |8.el; EM|ACS 19 e|
|00000dc0| 6d 75 6c 61 74 69 6e 67 | 20 66 75 6e 63 74 69 6f |mulating| functio|
|00000dd0| 6e 5d 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |n]..(def|alias 'm|
|00000de0| 61 6b 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 69 6e |ake-dire|ctory-in|
|00000df0| 74 65 72 6e 61 6c 20 23 | 5b 28 64 69 72 6e 61 6d |ternal #|[(dirnam|
|00000e00| 65 29 20 22 c0 09 21 ab | 85 c2 c3 09 5c 22 87 c4 |e) "..!.|....\"..|
|00000e10| c5 c6 89 89 09 25 c7 55 | 3f ad 84 c2 c8 09 5c 22 |.....%.U|?.....\"|
|00000e20| 87 22 20 5b 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |." [file|-exists-|
|00000e30| 70 20 64 69 72 6e 61 6d | 65 20 65 72 72 6f 72 20 |p dirnam|e error |
|00000e40| 22 43 72 65 61 74 69 6e | 67 20 64 69 72 65 63 74 |"Creatin|g direct|
|00000e50| 6f 72 79 3a 20 25 73 20 | 69 73 20 61 6c 72 65 61 |ory: %s |is alrea|
|00000e60| 64 79 20 65 78 69 73 74 | 22 20 63 61 6c 6c 2d 70 |dy exist|" call-p|
|00000e70| 72 6f 63 65 73 73 20 22 | 6d 6b 64 69 72 22 20 6e |rocess "|mkdir" n|
|00000e80| 69 6c 20 30 20 22 43 72 | 65 61 74 69 6e 67 20 64 |il 0 "Cr|eating d|
|00000e90| 69 72 65 63 74 6f 72 79 | 3a 20 6e 6f 20 73 75 63 |irectory|: no suc|
|00000ea0| 68 20 66 69 6c 65 20 6f | 72 20 64 69 72 65 63 74 |h file o|r direct|
|00000eb0| 6f 72 79 2c 20 25 73 22 | 5d 20 36 20 28 23 24 20 |ory, %s"|] 6 (#$ |
|00000ec0| 2e 20 33 34 34 34 29 5d | 29 0a 23 40 32 30 32 20 |. 3444)]|).#@202 |
|00000ed0| 43 72 65 61 74 65 20 74 | 68 65 20 64 69 72 65 63 |Create t|he direc|
|00000ee0| 74 6f 72 79 20 44 49 52 | 20 61 6e 64 20 61 6e 79 |tory DIR| and any|
|00000ef0| 20 6e 6f 6e 65 78 69 73 | 74 65 6e 74 20 70 61 72 | nonexis|tent par|
|00000f00| 65 6e 74 20 64 69 72 73 | 2e 0a 54 68 65 20 73 65 |ent dirs|..The se|
|00000f10| 63 6f 6e 64 20 28 6f 70 | 74 69 6f 6e 61 6c 29 20 |cond (op|tional) |
|00000f20| 61 72 67 75 6d 65 6e 74 | 20 50 41 52 45 4e 54 53 |argument| PARENTS|
|00000f30| 20 73 61 79 73 20 77 68 | 65 74 68 65 72 0a 74 6f | says wh|ether.to|
|00000f40| 20 63 72 65 61 74 65 20 | 70 61 72 65 6e 74 20 64 | create |parent d|
|00000f50| 69 72 65 63 74 6f 72 69 | 65 73 20 69 66 20 74 68 |irectori|es if th|
|00000f60| 65 79 20 64 6f 6e 27 74 | 20 65 78 69 73 74 2e 0a |ey don't| exist..|
|00000f70| 5b 65 6d 75 2d 31 38 2e | 65 6c 3b 20 45 4d 41 43 |[emu-18.|el; EMAC|
|00000f80| 53 20 31 39 20 65 6d 75 | 6c 61 74 69 6e 67 20 66 |S 19 emu|lating f|
|00000f90| 75 6e 63 74 69 6f 6e 5d | 1f 0a 28 64 65 66 61 6c |unction]|..(defal|
|00000fa0| 69 61 73 20 27 6d 61 6b | 65 2d 64 69 72 65 63 74 |ias 'mak|e-direct|
|00000fb0| 6f 72 79 20 23 5b 28 64 | 69 72 20 26 6f 70 74 69 |ory #[(d|ir &opti|
|00000fc0| 6f 6e 61 6c 20 70 61 72 | 65 6e 74 73 29 20 22 08 |onal par|ents) ".|
|00000fd0| 47 c1 c2 89 1b 1c 1d 1e | 06 c7 c8 8d 88 c9 08 21 |G.......|.......!|
|00000fe0| 2c 87 22 20 5b 64 69 72 | 20 30 20 6e 69 6c 20 70 |,." [dir| 0 nil p|
|00000ff0| 61 74 68 20 70 31 20 70 | 20 6c 65 6e 20 74 61 67 |ath p1 p| len tag|
|00001000| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 09 57 | (byte-c|ode "..W|
|00001010| ab c7 c2 c3 0c 08 23 ab | c0 c5 95 89 16 06 09 55 |......#.|.......U|
|00001020| ab 85 c7 c8 c9 5c 22 88 | 0c c5 0e 06 4f 16 5c 6e |.....\".|....O.\n|
|00001030| cb 0e 5c 6e 21 ac 9f cc | 0e 5c 6e 21 ab 88 cd ce |..\n!...|.\n!....|
|00001040| 0e 5c 6e 5c 22 88 aa 91 | 0e 0f ac 88 cd d0 0e 5c |.\n\"...|.......\|
|00001050| 6e 5c 22 88 aa 85 d1 0e | 5c 6e 21 88 0e 06 89 10 |n\".....|\n!.....|
|00001060| aa 35 c9 87 22 20 5b 70 | 20 6c 65 6e 20 73 74 72 |.5.." [p| len str|
|00001070| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 5e 2f 5d 2a |ing-matc|h "[^/]*|
|00001080| 2f 3f 22 20 64 69 72 20 | 30 20 70 31 20 74 68 72 |/?" dir |0 p1 thr|
|00001090| 6f 77 20 74 61 67 20 6e | 69 6c 20 70 61 74 68 20 |ow tag n|il path |
|000010a0| 66 69 6c 65 2d 64 69 72 | 65 63 74 6f 72 79 2d 70 |file-dir|ectory-p|
|000010b0| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 65 | file-ex|ists-p e|
|000010c0| 72 72 6f 72 20 22 43 72 | 65 61 74 69 6e 67 20 64 |rror "Cr|eating d|
|000010d0| 69 72 65 63 74 6f 72 79 | 3a 20 25 73 20 69 73 20 |irectory|: %s is |
|000010e0| 6e 6f 74 20 64 69 72 65 | 63 74 6f 72 79 22 20 70 |not dire|ctory" p|
|000010f0| 61 72 65 6e 74 73 20 22 | 43 72 65 61 74 69 6e 67 |arents "|Creating|
|00001100| 20 64 69 72 65 63 74 6f | 72 79 3a 20 25 73 20 69 | directo|ry: %s i|
|00001110| 73 20 6e 6f 74 20 65 78 | 69 73 74 22 20 6d 61 6b |s not ex|ist" mak|
|00001120| 65 2d 64 69 72 65 63 74 | 6f 72 79 2d 69 6e 74 65 |e-direct|ory-inte|
|00001130| 72 6e 61 6c 5d 20 35 29 | 20 6d 61 6b 65 2d 64 69 |rnal] 5)| make-di|
|00001140| 72 65 63 74 6f 72 79 2d | 69 6e 74 65 72 6e 61 6c |rectory-|internal|
|00001150| 5d 20 34 20 28 23 24 20 | 2e 20 33 37 39 32 29 5d |] 4 (#$ |. 3792)]|
|00001160| 29 0a 23 40 36 31 20 45 | 78 70 6c 6f 64 65 20 61 |).#@61 E|xplode a|
|00001170| 20 63 6f 6c 6f 6e 2d 73 | 65 70 61 72 61 74 65 64 | colon-s|eparated|
|00001180| 20 6c 69 73 74 20 6f 66 | 20 70 61 74 68 73 20 69 | list of| paths i|
|00001190| 6e 74 6f 20 61 20 73 74 | 72 69 6e 67 20 6c 69 73 |nto a st|ring lis|
|000011a0| 74 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 70 |t...(def|alias 'p|
|000011b0| 61 72 73 65 2d 63 6f 6c | 6f 6e 2d 70 61 74 68 20 |arse-col|on-path |
|000011c0| 23 5b 28 63 64 2d 70 61 | 74 68 29 20 22 08 ad b1 |#[(cd-pa|th) "...|
|000011d0| c1 89 c2 c1 1b 1c 1d 1e | 06 08 0e 07 50 10 c8 0e |........|....P...|
|000011e0| 07 08 0c 23 89 13 ab 97 | 0d 0c 0b 55 3f ad 88 c9 |...#....|...U?...|
|000011f0| ca 08 0c 0b 4f 21 21 43 | a4 15 0b 54 14 aa 5f 0d |....O!!C|...T.._.|
|00001200| 2c 87 22 20 5b 63 64 2d | 70 61 74 68 20 6e 69 6c |,." [cd-|path nil|
|00001210| 20 30 20 63 64 2d 63 6f | 6c 6f 6e 20 63 64 2d 73 | 0 cd-co|lon cd-s|
|00001220| 74 61 72 74 20 63 64 2d | 6c 69 73 74 20 63 64 2d |tart cd-|list cd-|
|00001230| 70 72 65 66 69 78 20 70 | 61 74 68 2d 73 65 70 61 |prefix p|ath-sepa|
|00001240| 72 61 74 6f 72 20 73 74 | 72 69 6e 67 2d 6d 61 74 |rator st|ring-mat|
|00001250| 63 68 20 73 75 62 73 74 | 69 74 75 74 65 2d 69 6e |ch subst|itute-in|
|00001260| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 2d |-file-na|me file-|
|00001270| 6e 61 6d 65 2d 61 73 2d | 64 69 72 65 63 74 6f 72 |name-as-|director|
|00001280| 79 5d 20 36 20 28 23 24 | 20 2e 20 34 34 35 35 29 |y] 6 (#$| . 4455)|
|00001290| 5d 29 0a 23 40 37 36 20 | 43 6f 6e 76 65 72 74 20 |]).#@76 |Convert |
|000012a0| 46 49 4c 45 4e 41 4d 45 | 20 74 6f 20 62 65 20 72 |FILENAME| to be r|
|000012b0| 65 6c 61 74 69 76 65 20 | 74 6f 20 44 49 52 45 43 |elative |to DIREC|
|000012c0| 54 4f 52 59 20 28 64 65 | 66 61 75 6c 74 3a 20 64 |TORY (de|fault: d|
|000012d0| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|000012e0| 29 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |)...(def|alias 'f|
|000012f0| 69 6c 65 2d 72 65 6c 61 | 74 69 76 65 2d 6e 61 6d |ile-rela|tive-nam|
|00001300| 65 20 23 5b 28 66 69 6c | 65 6e 61 6d 65 20 26 6f |e #[(fil|ename &o|
|00001310| 70 74 69 6f 6e 61 6c 20 | 64 69 72 65 63 74 6f 72 |ptional |director|
|00001320| 79 29 20 22 c0 09 21 11 | c2 c0 0b ae 81 0c 21 21 |y) "..!.|......!!|
|00001330| 13 c5 1e 06 c7 c8 c9 0b | 21 50 09 5c 22 ac 8f ca |........|!P.\"...|
|00001340| 0b cb cc 4f 21 13 cd 0e | 06 50 16 06 aa 67 0e 06 |...O!...|.P...g..|
|00001350| 09 cb 95 ce 4f 50 29 87 | 22 20 5b 65 78 70 61 6e |....OP).|" [expan|
|00001360| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |d-file-n|ame file|
|00001370| 6e 61 6d 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 61 |name fil|e-name-a|
|00001380| 73 2d 64 69 72 65 63 74 | 6f 72 79 20 64 69 72 65 |s-direct|ory dire|
|00001390| 63 74 6f 72 79 20 64 65 | 66 61 75 6c 74 2d 64 69 |ctory de|fault-di|
|000013a0| 72 65 63 74 6f 72 79 20 | 22 22 20 61 6e 63 65 73 |rectory |"" ances|
|000013b0| 74 6f 72 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |tor stri|ng-match|
|000013c0| 20 22 5e 22 20 72 65 67 | 65 78 70 2d 71 75 6f 74 | "^" reg|exp-quot|
|000013d0| 65 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |e file-n|ame-dire|
|000013e0| 63 74 6f 72 79 20 30 20 | 2d 31 20 22 2e 2e 2f 22 |ctory 0 |-1 "../"|
|000013f0| 20 6e 69 6c 5d 20 34 20 | 28 23 24 20 2e 20 34 37 | nil] 4 |(#$ . 47|
|00001400| 36 30 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |60)]).(b|yte-code|
|00001410| 20 22 c0 c1 21 ac 85 c1 | c2 4b 4d 88 c0 87 22 20 | "..!...|.KM..." |
|00001420| 5b 66 62 6f 75 6e 64 70 | 20 73 69 3a 64 69 72 65 |[fboundp| si:dire|
|00001430| 63 74 6f 72 79 2d 66 69 | 6c 65 73 20 64 69 72 65 |ctory-fi|les dire|
|00001440| 63 74 6f 72 79 2d 66 69 | 6c 65 73 5d 20 32 29 0a |ctory-fi|les] 2).|
|00001450| 23 40 33 35 35 20 52 65 | 74 75 72 6e 20 61 20 6c |#@355 Re|turn a l|
|00001460| 69 73 74 20 6f 66 20 6e | 61 6d 65 73 20 6f 66 20 |ist of n|ames of |
|00001470| 66 69 6c 65 73 20 69 6e | 20 44 49 52 45 43 54 4f |files in| DIRECTO|
|00001480| 52 59 2e 0a 54 68 65 72 | 65 20 61 72 65 20 74 68 |RY..Ther|e are th|
|00001490| 72 65 65 20 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |ree opti|onal arg|
|000014a0| 75 6d 65 6e 74 73 3a 0a | 49 66 20 46 55 4c 4c 20 |uments:.|If FULL |
|000014b0| 69 73 20 6e 6f 6e 2d 6e | 69 6c 2c 20 72 65 74 75 |is non-n|il, retu|
|000014c0| 72 6e 20 61 62 73 6f 6c | 75 74 65 20 66 69 6c 65 |rn absol|ute file|
|000014d0| 20 6e 61 6d 65 73 2e 20 | 20 4f 74 68 65 72 77 69 | names. | Otherwi|
|000014e0| 73 65 20 72 65 74 75 72 | 6e 20 6e 61 6d 65 73 0a |se retur|n names.|
|000014f0| 20 74 68 61 74 20 61 72 | 65 20 72 65 6c 61 74 69 | that ar|e relati|
|00001500| 76 65 20 74 6f 20 74 68 | 65 20 73 70 65 63 69 66 |ve to th|e specif|
|00001510| 69 65 64 20 64 69 72 65 | 63 74 6f 72 79 2e 0a 49 |ied dire|ctory..I|
|00001520| 66 20 4d 41 54 43 48 20 | 69 73 20 6e 6f 6e 2d 6e |f MATCH |is non-n|
|00001530| 69 6c 2c 20 6d 65 6e 74 | 69 6f 6e 20 6f 6e 6c 79 |il, ment|ion only|
|00001540| 20 66 69 6c 65 20 6e 61 | 6d 65 73 20 74 68 61 74 | file na|mes that|
|00001550| 20 6d 61 74 63 68 20 74 | 68 65 20 72 65 67 65 78 | match t|he regex|
|00001560| 70 20 4d 41 54 43 48 2e | 0a 49 66 20 4e 4f 53 4f |p MATCH.|.If NOSO|
|00001570| 52 54 20 69 73 20 64 75 | 6d 6d 79 20 66 6f 72 20 |RT is du|mmy for |
|00001580| 63 6f 6d 70 61 74 69 62 | 69 6c 69 74 79 2e 0a 5b |compatib|ility..[|
|00001590| 65 6d 75 2d 31 38 2e 65 | 6c 3b 20 45 4d 41 43 53 |emu-18.e|l; EMACS|
|000015a0| 20 31 39 20 65 6d 75 6c | 61 74 69 6e 67 20 66 75 | 19 emul|ating fu|
|000015b0| 6e 63 74 69 6f 6e 5d 1f | 0a 28 64 65 66 61 6c 69 |nction].|.(defali|
|000015c0| 61 73 20 27 64 69 72 65 | 63 74 6f 72 79 2d 66 69 |as 'dire|ctory-fi|
|000015d0| 6c 65 73 20 23 5b 28 64 | 69 72 65 63 74 6f 72 79 |les #[(d|irectory|
|000015e0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 75 6c 6c 20 | &option|al full |
|000015f0| 6d 61 74 63 68 20 6e 6f | 73 6f 72 74 29 20 22 c0 |match no|sort) ".|
|00001600| 09 5c 6e 0b 23 87 22 20 | 5b 73 69 3a 64 69 72 65 |.\n.#." |[si:dire|
|00001610| 63 74 6f 72 79 2d 66 69 | 6c 65 73 20 64 69 72 65 |ctory-fi|les dire|
|00001620| 63 74 6f 72 79 20 66 75 | 6c 6c 20 6d 61 74 63 68 |ctory fu|ll match|
|00001630| 5d 20 34 20 28 23 24 20 | 2e 20 35 32 30 36 29 5d |] 4 (#$ |. 5206)]|
|00001640| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00001650| 21 ac 85 c1 c2 4b 4d 88 | c0 87 22 20 5b 66 62 6f |!....KM.|.." [fbo|
|00001660| 75 6e 64 70 20 73 69 3a | 6d 61 72 6b 20 6d 61 72 |undp si:|mark mar|
|00001670| 6b 5d 20 32 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |k] 2).(d|efalias |
|00001680| 27 6d 61 72 6b 20 23 5b | 28 26 6f 70 74 69 6f 6e |'mark #[|(&option|
|00001690| 61 6c 20 66 6f 72 63 65 | 29 20 22 c0 20 87 22 20 |al force|) ". ." |
|000016a0| 5b 73 69 3a 6d 61 72 6b | 5d 20 31 5d 29 0a 23 40 |[si:mark|] 1]).#@|
|000016b0| 31 36 35 20 46 6f 72 63 | 65 20 74 68 65 20 6d 6f |165 Forc|e the mo|
|000016c0| 64 65 2d 6c 69 6e 65 20 | 6f 66 20 74 68 65 20 63 |de-line |of the c|
|000016d0| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 74 6f |urrent b|uffer to|
|000016e0| 20 62 65 20 72 65 64 69 | 73 70 6c 61 79 65 64 2e | be redi|splayed.|
|000016f0| 0a 57 69 74 68 20 6f 70 | 74 69 6f 6e 61 6c 20 6e |.With op|tional n|
|00001700| 6f 6e 2d 6e 69 6c 20 41 | 4c 4c 2c 20 66 6f 72 63 |on-nil A|LL, forc|
|00001710| 65 20 72 65 64 69 73 70 | 6c 61 79 20 6f 66 20 61 |e redisp|lay of a|
|00001720| 6c 6c 20 6d 6f 64 65 2d | 6c 69 6e 65 73 2e 0a 5b |ll mode-|lines..[|
|00001730| 65 6d 75 2d 31 38 2e 65 | 6c 3b 20 45 6d 61 63 73 |emu-18.e|l; Emacs|
|00001740| 20 31 39 20 65 6d 75 6c | 61 74 69 6e 67 20 66 75 | 19 emul|ating fu|
|00001750| 6e 63 74 69 6f 6e 5d 1f | 0a 28 64 65 66 61 6c 69 |nction].|.(defali|
|00001760| 61 73 20 27 66 6f 72 63 | 65 2d 6d 6f 64 65 2d 6c |as 'forc|e-mode-l|
|00001770| 69 6e 65 2d 75 70 64 61 | 74 65 20 23 5b 28 26 6f |ine-upda|te #[(&o|
|00001780| 70 74 69 6f 6e 61 6c 20 | 61 6c 6c 29 20 22 08 ab |ptional |all) "..|
|00001790| 86 8a c1 20 71 88 29 c2 | c3 20 21 87 22 20 5b 61 |... q.).|. !." [a|
|000017a0| 6c 6c 20 6f 74 68 65 72 | 2d 62 75 66 66 65 72 20 |ll other|-buffer |
|000017b0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|000017c0| 69 65 64 2d 70 20 62 75 | 66 66 65 72 2d 6d 6f 64 |ied-p bu|ffer-mod|
|000017d0| 69 66 69 65 64 2d 70 5d | 20 32 20 28 23 24 20 2e |ified-p]| 2 (#$ .|
|000017e0| 20 35 38 31 32 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 5812)])|.(defali|
|000017f0| 61 73 20 27 6f 76 65 72 | 6c 61 79 2d 62 75 66 66 |as 'over|lay-buff|
|00001800| 65 72 20 23 5b 28 6f 76 | 65 72 6c 61 79 29 20 22 |er #[(ov|erlay) "|
|00001810| c0 87 22 20 5b 6e 69 6c | 5d 20 31 5d 29 0a 28 64 |.." [nil|] 1]).(d|
|00001820| 65 66 61 6c 69 61 73 20 | 27 72 65 6d 6f 76 65 2d |efalias |'remove-|
|00001830| 74 65 78 74 2d 70 72 6f | 70 65 72 74 69 65 73 20 |text-pro|perties |
|00001840| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 20 70 72 6f |#[(start| end pro|
|00001850| 70 65 72 74 69 65 73 20 | 26 6f 70 74 69 6f 6e 61 |perties |&optiona|
|00001860| 6c 20 6f 62 6a 65 63 74 | 29 20 22 c0 87 22 20 5b |l object|) ".." [|
|00001870| 6e 69 6c 5d 20 31 5d 29 | 0a 28 64 65 66 61 6c 69 |nil] 1])|.(defali|
|00001880| 61 73 20 27 65 6e 61 62 | 6c 65 2d 69 6e 76 69 73 |as 'enab|le-invis|
|00001890| 69 62 6c 65 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |ible '(m|acro . #|
|000018a0| 5b 6e 69 6c 20 22 c0 87 | 22 20 5b 28 70 72 6f 67 |[nil "..|" [(prog|
|000018b0| 6e 20 28 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 |n (make-|local-va|
|000018c0| 72 69 61 62 6c 65 20 27 | 6f 72 69 67 69 6e 61 6c |riable '|original|
|000018d0| 2d 73 65 6c 65 63 74 69 | 76 65 2d 64 69 73 70 6c |-selecti|ve-displ|
|000018e0| 61 79 29 20 28 73 65 74 | 71 20 6f 72 69 67 69 6e |ay) (set|q origin|
|000018f0| 61 6c 2d 73 65 6c 65 63 | 74 69 76 65 2d 64 69 73 |al-selec|tive-dis|
|00001900| 70 6c 61 79 20 73 65 6c | 65 63 74 69 76 65 2d 64 |play sel|ective-d|
|00001910| 69 73 70 6c 61 79 29 20 | 28 73 65 74 71 20 73 65 |isplay) |(setq se|
|00001920| 6c 65 63 74 69 76 65 2d | 64 69 73 70 6c 61 79 20 |lective-|display |
|00001930| 74 29 29 5d 20 31 5d 29 | 29 0a 28 64 65 66 61 6c |t))] 1])|).(defal|
|00001940| 69 61 73 20 27 65 6e 64 | 2d 6f 66 2d 69 6e 76 69 |ias 'end|-of-invi|
|00001950| 73 69 62 6c 65 20 27 28 | 6d 61 63 72 6f 20 2e 20 |sible '(|macro . |
|00001960| 23 5b 6e 69 6c 20 22 c0 | 87 22 20 5b 28 73 65 74 |#[nil ".|." [(set|
|00001970| 71 20 73 65 6c 65 63 74 | 69 76 65 2d 64 69 73 70 |q select|ive-disp|
|00001980| 6c 61 79 20 28 69 66 20 | 28 62 6f 75 6e 64 70 20 |lay (if |(boundp |
|00001990| 27 6f 72 69 67 69 6e 61 | 6c 2d 73 65 6c 65 63 74 |'origina|l-select|
|000019a0| 69 76 65 2d 64 69 73 70 | 6c 61 79 29 20 6f 72 69 |ive-disp|lay) ori|
|000019b0| 67 69 6e 61 6c 2d 73 65 | 6c 65 63 74 69 76 65 2d |ginal-se|lective-|
|000019c0| 64 69 73 70 6c 61 79 29 | 29 5d 20 31 5d 29 29 0a |display)|)] 1])).|
|000019d0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 76 69 73 |(defalia|s 'invis|
|000019e0| 69 62 6c 65 2d 72 65 67 | 69 6f 6e 20 23 5b 28 73 |ible-reg|ion #[(s|
|000019f0| 74 61 72 74 20 65 6e 64 | 29 20 22 c0 c1 20 1a 1b |tart end|) ".. ..|
|00001a00| 8a 0c 53 62 88 67 29 c5 | 61 ab 83 0c 53 14 c6 8e |..Sb.g).|a...S...|
|00001a10| c7 0e 08 0c c5 c9 ca 25 | 2b 87 22 20 5b 6e 69 6c |.......%|+." [nil|
|00001a20| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00001a30| 2d 70 20 6d 6f 64 70 20 | 62 75 66 66 65 72 2d 72 |-p modp |buffer-r|
|00001a40| 65 61 64 2d 6f 6e 6c 79 | 20 65 6e 64 20 3f 5c 6e |ead-only| end ?\n|
|00001a50| 20 28 28 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f | ((set-b|uffer-mo|
|00001a60| 64 69 66 69 65 64 2d 70 | 20 6d 6f 64 70 29 29 20 |dified-p| modp)) |
|00001a70| 73 75 62 73 74 2d 63 68 | 61 72 2d 69 6e 2d 72 65 |subst-ch|ar-in-re|
|00001a80| 67 69 6f 6e 20 73 74 61 | 72 74 20 3f 5c 72 20 74 |gion sta|rt ?\r t|
|00001a90| 5d 20 36 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 6]).(d|efalias |
|00001aa0| 27 76 69 73 69 62 6c 65 | 2d 72 65 67 69 6f 6e 20 |'visible|-region |
|00001ab0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 c0 |#[(start| end) ".|
|00001ac0| c1 20 1a 1b c4 8e c5 0e | 06 0e 07 c8 c9 ca 25 2b |. ......|......%+|
|00001ad0| 87 22 20 5b 6e 69 6c 20 | 62 75 66 66 65 72 2d 6d |." [nil |buffer-m|
|00001ae0| 6f 64 69 66 69 65 64 2d | 70 20 6d 6f 64 70 20 62 |odified-|p modp b|
|00001af0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00001b00| 28 28 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 6f 64 |((set-bu|ffer-mod|
|00001b10| 69 66 69 65 64 2d 70 20 | 6d 6f 64 70 29 29 20 73 |ified-p |modp)) s|
|00001b20| 75 62 73 74 2d 63 68 61 | 72 2d 69 6e 2d 72 65 67 |ubst-cha|r-in-reg|
|00001b30| 69 6f 6e 20 73 74 61 72 | 74 20 65 6e 64 20 3f 5c |ion star|t end ?\|
|00001b40| 72 20 3f 5c 6e 20 74 5d | 20 36 5d 29 0a 28 64 65 |r ?\n t]| 6]).(de|
|00001b50| 66 61 6c 69 61 73 20 27 | 69 6e 76 69 73 69 62 6c |falias '|invisibl|
|00001b60| 65 2d 70 20 23 5b 28 70 | 6f 73 29 20 22 8a 08 62 |e-p #[(p|os) "..b|
|00001b70| 88 67 29 c1 61 87 22 20 | 5b 70 6f 73 20 3f 5c 72 |.g).a." |[pos ?\r|
|00001b80| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00001b90| 27 6e 65 78 74 2d 76 69 | 73 69 62 6c 65 2d 70 6f |'next-vi|sible-po|
|00001ba0| 69 6e 74 20 23 5b 28 70 | 6f 73 29 20 22 8a 08 62 |int #[(p|os) "..b|
|00001bb0| 88 c1 7f 88 67 c2 61 ab | 83 c1 75 88 60 29 87 22 |....g.a.|..u.`)."|
|00001bc0| 20 5b 70 6f 73 20 6e 69 | 6c 20 3f 5c 6e 5d 20 32 | [pos ni|l ?\n] 2|
|00001bd0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00001be0| c1 21 ac 82 c2 11 c1 0b | 42 13 c0 c4 21 ac 82 c2 |.!......|B...!...|
|00001bf0| 14 c4 0b 42 13 c0 c5 21 | ac 82 c2 15 c5 0b 42 13 |...B...!|......B.|
|00001c00| c2 87 22 20 5b 62 6f 75 | 6e 64 70 20 6d 6f 75 73 |.." [bou|ndp mous|
|00001c10| 65 2d 62 75 74 74 6f 6e | 2d 31 20 6e 69 6c 20 63 |e-button|-1 nil c|
|00001c20| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00001c30| 20 6d 6f 75 73 65 2d 62 | 75 74 74 6f 6e 2d 32 20 | mouse-b|utton-2 |
|00001c40| 6d 6f 75 73 65 2d 62 75 | 74 74 6f 6e 2d 33 5d 20 |mouse-bu|tton-3] |
|00001c50| 32 29 0a 23 40 36 30 20 | 43 6f 6e 76 65 72 74 20 |2).#@60 |Convert |
|00001c60| 6c 69 73 74 20 6f 66 20 | 63 68 61 72 61 63 74 65 |list of |characte|
|00001c70| 72 20 43 48 41 52 2d 4c | 49 53 54 20 74 6f 20 73 |r CHAR-L|IST to s|
|00001c80| 74 72 69 6e 67 2e 20 5b | 65 6d 75 2d 31 38 2e 65 |tring. [|emu-18.e|
|00001c90| 6c 5d 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |l]..(def|alias 'c|
|00001ca0| 68 61 72 2d 6c 69 73 74 | 2d 74 6f 2d 73 74 72 69 |har-list|-to-stri|
|00001cb0| 6e 67 20 23 5b 28 63 68 | 61 72 2d 6c 69 73 74 29 |ng #[(ch|ar-list)|
|00001cc0| 20 22 c0 c1 5c 6e c3 23 | 87 22 20 5b 6d 61 70 63 | "..\n.#|." [mapc|
|00001cd0| 6f 6e 63 61 74 20 63 68 | 61 72 2d 74 6f 2d 73 74 |oncat ch|ar-to-st|
|00001ce0| 72 69 6e 67 20 63 68 61 | 72 2d 6c 69 73 74 20 22 |ring cha|r-list "|
|00001cf0| 22 5d 20 34 20 28 23 24 | 20 2e 20 37 32 35 36 29 |"] 4 (#$| . 7256)|
|00001d00| 5d 29 0a 28 70 72 6f 76 | 69 64 65 20 27 65 6d 75 |]).(prov|ide 'emu|
|00001d10| 2d 31 38 29 0a          |                         |-18).   |        |
+--------+-------------------------+-------------------------+--------+--------+